message ("\nInstalacja na twardy dysk pakietu\nFIRMA 5.9\n\nSystem operacyjny musi byê wczytany z twardego dysku, dopiero wtedy moûesz wîoûyê do stacji dyskietkë z FirmaDodatki.\n\n")
)
(
set DESTDIR (askdir
(prompt ("Wybierz urzâdzenie i katalog, na które chcesz instalowaê program"))
(help ("W tym miejscu naleûy wybraê partycjë (oraz katalog), na którâ zainstalowana zostanie Firma. Program instalacyjny nie tworzy swojego katalogu - program nagrywany jest bezpoôrednio do katalogu okreôlonego w oknie wyboru."))
(default ("dh0:Firma"))
)
)
(
if (= (exists DESTDIR) 0)
(makedir DESTDIR (infos))
)
(complete 2)
(
(set SPACE (getdiskspace DESTDIR))
(
if( < SPACE 1200000)
(message ("\n\nUWAGA! Za maîo miejsca na twardym dysku aby dokonaê peînej instalacji! Jeôli pomimo wszystko chcesz zainstalowaê Firmë na të partycjë wybierz tryb Experta przy instalacji i zainstaluj tylko te pliki, które sâ niezbëdne!!!"))
)
)
(
message ("\n\n\nPotwierdú chëê instalacji pakietu FIRMA 5.9 na\n\n %s" DESTDIR)
)
(set @default-dest DESTDIR)
(complete 4)
(
set CHOICE
(askoptions (prompt ("Wybierz czëôci dyskietki dystrybucyjnej, które chcesz zainstalowaê:"))
(help ("W tym miejscu moûesz zrezygnowaê z instalowania pewnych fragmentów dyskietki instalacyjnej. Jeôli np. nie chcesz instalowaê polskich sterowników do drukarki moûesz usunâê marker przy odpowiedniej opcji."))
(choices
("program PLFonts (Firma:c/PLFonts)")
("sterowniki drukarki (Firma:devs/printers)")
("biblioteki (Firma:libs)")
("kroje liter (Firma:fonts)")
("program FIRMA 5.9 (Firma:Firma(.info))")
("programy dodatkowe (FirmaDodatki:*)")
)
(default 63)
)
)
(complete 8)
(
if (bitand CHOICE 1)
(
copyfiles (source "Firma:c")
(dest "SYS:c")
(
choices
("PLFonts")
)
(confirm)
(prompt ("Program umoûliwiajâcy instalacjë polskich znaków w systemie"))
(help (""))
(nogauge)
)
)
(complete 16)
(
if (bitand CHOICE 2)
(
(if (= (exists ("SYS:devs")) 0)
(makedir ("SYS:devs")))
(if (= (exists ("SYS:devs/printers")) 0)
(makedir ("SYS:devs/printers")))
(copyfiles (source "Firma:devs/printers")
(dest "SYS:devs/printers")
(all)
(confirm)
(prompt ("Wybierz sterowniki, które chcesz skopiowaê:"))
(help ("Moûesz zainstalowaê tylko ten sterownik, który obsîuguje Twojâ drukarkë usuwajâc znaczki 'V' z pozostaîych pozycji listy."))
(nogauge)
)
)
)
(complete 30)
(
if (bitand CHOICE 4)
(
(copylib (source "Firma:libs/info.library")
(dest "SYS:libs")
(prompt ("Biblioteka info.library"))
(confirm)
(help (""))
(nogauge)
)
(complete 33)
(copylib (source "Firma:libs/diskfont.library")
(dest "SYS:libs")
(prompt ("Biblioteka diskfont.library"))
(confirm)
(help (""))
(nogauge)
)
(complete 36)
(copylib (source "Firma:libs/icon.library")
(dest "SYS:libs")
(prompt ("Biblioteka icon.library"))
(confirm)
(help (""))
(nogauge)
)
)
)
(complete 40)
(
if (bitand CHOICE 8)
(
copyfiles (source "Firma:fonts")
(dest "SYS:fonts")
(all)
(confirm)
(prompt ("Wybierz kroje liter, które chcesz skopiowaê:"))
(help ("Krój Atari (wraz z plikiem Atari.font) jest niezbëdny do uruchomienia pakietu. Krój TopazPL (wraz z plikiem TopazPL.font) jest niezbëdny do uruchomienia programu PLFonts instalujâcego polskie znaki w systemie."))
(nogauge)
)
)
(complete 46)
(
if (bitand CHOICE 16)
(
copyfiles (source "Firma:Firma")
(dest DESTDIR)
(infos)
)
)
(complete 65)
(
if (bitand CHOICE 32)
(copyfiles (source "FirmaDodatki:")
(dest DESTDIR)
(
choices
("EWID.RYCZAÎT")
("WYPOSAÛENIE")
("KSIËGA_PR")
("SPRZEDAÛ-VAT")
("ZAKUP-VAT")
("BANK")
("PRZEBIEG-AUTO")
("WYDATKI-AUTO")
("ANALIZA_FIRMY")
)
(confirm)
(infos)
(prompt ("Wybierz programy, które chcesz zainstalowaê:"))
(help ("Moûesz zainstalowaê tylko te programy, którymi bëdziesz sië posîugiwaî usuwajâc znaczki 'V' z pozostaîych pozycji listy."))
)
)
(complete 96)
(
set DATADIRS
(askoptions (prompt ("Jakie magazyny chcesz zaîoûyê na twardym dysku?"))
(help ("Program instalujâcy zaîoûy odpowiednie katalogi i przypisania do zaznaczonych znakiem 'V' magazynów."))
(message ("\n\nUWAGA!\n========\nProgram zostaî zainstalowany!\nAby móc go uruchomiê naleûy, po wyjôciu z programu instalacyjnego, zresetowaê komputer i ponownie uruchomiê system z twardego dysku."))
